home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / J-M / Kids El Verbo Simple.cpt / El Verbo Simple 1.1 / card_76666.txt < prev    next >
Text File  |  1990-11-11  |  12KB  |  610 lines
  1. -- card: 76666 from stack: in.1
  2. -- bmap block id: 76966
  3. -- flags: 4000
  4. -- background id: 72461
  5. -- name: 
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18. -- part 10 (field)
  19. -- low flags: 00
  20. -- high flags: 0002
  21. -- rect: left=35 top=207 right=225 bottom=471
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 21
  26. -- text size: 12
  27. -- style flags: 256
  28. -- line height: 16
  29. -- part name: Response
  30. ----- HyperTalk script -----
  31. on returnInField
  32.   Global Answer, Wrong, Correct
  33.   get Compare (Answer, card field "Response")
  34.   if it is false then
  35.     play "Buzzer"
  36.     add 1 to wrong
  37.     put wrong into card field "Not Right"
  38.     wait 2
  39.     put Answer into card field "Response"
  40.     wait 6
  41.   else
  42.     play "Bleenk"
  43.     add 1 to correct
  44.     put correct into card field "Right"
  45.   end if
  46.   put Round(Correct/(Correct+Wrong)*100) & "%" into card field "Average"
  47.   DoQuestion
  48. end returnInField
  49.  
  50.  
  51.  
  52.  
  53. -- part 13 (field)
  54. -- low flags: 01
  55. -- high flags: 0000
  56. -- rect: left=81 top=126 right=144 bottom=307
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 0
  60. -- font id: 21
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: QVerb
  65.  
  66.  
  67. -- part 14 (field)
  68. -- low flags: 01
  69. -- high flags: 0000
  70. -- rect: left=94 top=155 right=173 bottom=307
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 21
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: QTense
  79.  
  80.  
  81. -- part 26 (button)
  82. -- low flags: 00
  83. -- high flags: 6005
  84. -- rect: left=146 top=235 right=249 bottom=164
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Yo
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   PutSubject "Yo",1
  96. end mouseUp
  97.  
  98.  
  99.  
  100.  
  101.  
  102. -- part 15 (field)
  103. -- low flags: 01
  104. -- high flags: 0000
  105. -- rect: left=102 top=184 right=201 bottom=307
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 21
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: QPerson
  114.  
  115.  
  116. -- part 16 (button)
  117. -- low flags: 00
  118. -- high flags: 6006
  119. -- rect: left=33 top=233 right=252 bottom=51
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: All Subjects
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   if the hilite of card button "All Subjects" is true then
  131.     set the hilite of card button "Some Subjects" to false
  132.     show card field "Hide1"
  133.   else
  134.     click at the loc of card button "Some Subjects"
  135.   end if
  136. end mouseUp
  137.  
  138.  
  139.  
  140.  
  141.  
  142. -- part 17 (button)
  143. -- low flags: 00
  144. -- high flags: 2006
  145. -- rect: left=33 top=254 right=272 bottom=51
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: Some Subjects
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   if the hilite of card button "Some Subjects" is true then
  157.     set the hilite of card button "All Subjects" to false
  158.     hide card field "Hide1"
  159.   else
  160.     click at the loc of card button "All Subjects"
  161.   end if
  162. end mouseUp
  163.  
  164.  
  165.  
  166.  
  167. -- part 19 (button)
  168. -- low flags: 00
  169. -- high flags: 6006
  170. -- rect: left=33 top=278 right=296 bottom=51
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: All Tenses
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   if the hilite of card button "All Tenses" is true then
  182.     set the hilite of card button "Some Tenses" to false
  183.     show card field "Hide2"
  184.   else
  185.     click at the loc of card button "Some Tenses"
  186.   end if
  187. end mouseUp
  188.  
  189.  
  190.  
  191.  
  192.  
  193. -- part 20 (button)
  194. -- low flags: 00
  195. -- high flags: 2006
  196. -- rect: left=33 top=298 right=316 bottom=51
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 1
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: Some Tenses
  205. ----- HyperTalk script -----
  206. on mouseUp
  207.   if the hilite of card button "Some Tenses" is true then
  208.     set the hilite of card button "All Tenses" to false
  209.     hide card field "Hide2"
  210.   else
  211.     click at the loc of card button "All Tenses"
  212.   end if
  213. end mouseUp
  214.  
  215.  
  216.  
  217.  
  218. -- part 22 (button)
  219. -- low flags: 00
  220. -- high flags: 0000
  221. -- rect: left=453 top=75 right=92 bottom=473
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 6720 / 6720
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: 
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   Global Correct, Wrong
  233.   put 0 into Correct
  234.   put 0 into Wrong
  235.   put 0 into card field "Right"
  236.   put 0 into card field "Not Right"
  237.   put "0%" into card field "Average"
  238.   put empty into card field "QTense"
  239.   put empty into card field "QVerb"
  240.   put empty into card field "QPerson"
  241.   visual effect dissolve
  242.   go to card id 73808
  243. end mouseUp
  244.  
  245.  
  246.  
  247.  
  248.  
  249. -- part 27 (button)
  250. -- low flags: 00
  251. -- high flags: 6005
  252. -- rect: left=146 top=255 right=269 bottom=164
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: Tu
  261. ----- HyperTalk script -----
  262. on mouseUp
  263.   PutSubject "Tu",2
  264. end mouseUp
  265.  
  266.  
  267.  
  268. -- part 28 (button)
  269. -- low flags: 00
  270. -- high flags: 6005
  271. -- rect: left=179 top=235 right=249 bottom=197
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 1
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: Nosotros
  280. ----- HyperTalk script -----
  281. on mouseUp
  282.   PutSubject "Nosotros",4
  283. end mouseUp
  284.  
  285.  
  286.  
  287. -- part 29 (button)
  288. -- low flags: 00
  289. -- high flags: 2005
  290. -- rect: left=179 top=255 right=269 bottom=197
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 0
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: Vosotros
  299. ----- HyperTalk script -----
  300. on mouseUp
  301.   PutSubject "Vosotros",5
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 30 (button)
  307. -- low flags: 00
  308. -- high flags: 6005
  309. -- rect: left=246 top=235 right=249 bottom=264
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: Ud.
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   PutSubject "Ud.",3
  321. end mouseUp
  322.  
  323.  
  324.  
  325. -- part 31 (button)
  326. -- low flags: 00
  327. -- high flags: 6005
  328. -- rect: left=246 top=255 right=269 bottom=264
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: Uds.
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   PutSubject "Uds.",6
  340. end mouseUp
  341.  
  342.  
  343.  
  344. -- part 18 (field)
  345. -- low flags: 01
  346. -- high flags: 0001
  347. -- rect: left=143 top=232 right=271 bottom=458
  348. -- title width / last selected line: 0
  349. -- icon id / first selected line: 0 / 0
  350. -- text alignment: 0
  351. -- font id: 3
  352. -- text size: 12
  353. -- style flags: 0
  354. -- line height: 16
  355. -- part name: Hide1
  356. ----- HyperTalk script -----
  357. -- This Is A Dummy Field Used To Hide The Graphic Text
  358. -- When All Subjects Is Selected.
  359.  
  360.  
  361. -- part 33 (button)
  362. -- low flags: 00
  363. -- high flags: 6005
  364. -- rect: left=145 top=281 right=295 bottom=163
  365. -- title width / last selected line: 0
  366. -- icon id / first selected line: 0 / 0
  367. -- text alignment: 1
  368. -- font id: 0
  369. -- text size: 12
  370. -- style flags: 0
  371. -- line height: 16
  372. -- part name: Present
  373. ----- HyperTalk script -----
  374. on mouseUp
  375.   PutTense "Present",1
  376. end mouseUp
  377.  
  378.  
  379.  
  380. -- part 34 (button)
  381. -- low flags: 00
  382. -- high flags: 6005
  383. -- rect: left=145 top=301 right=315 bottom=163
  384. -- title width / last selected line: 0
  385. -- icon id / first selected line: 0 / 0
  386. -- text alignment: 1
  387. -- font id: 0
  388. -- text size: 12
  389. -- style flags: 0
  390. -- line height: 16
  391. -- part name: Preterite
  392. ----- HyperTalk script -----
  393. on mouseUp
  394.   PutTense "Preterite",2
  395. end mouseUp
  396.  
  397.  
  398.  
  399. -- part 35 (button)
  400. -- low flags: 00
  401. -- high flags: 6005
  402. -- rect: left=211 top=301 right=315 bottom=229
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: Imperfect
  411. ----- HyperTalk script -----
  412. on mouseUp
  413.   PutTense "Imperfect",3
  414. end mouseUp
  415.  
  416.  
  417.  
  418. -- part 37 (button)
  419. -- low flags: 00
  420. -- high flags: 2005
  421. -- rect: left=211 top=281 right=295 bottom=229
  422. -- title width / last selected line: 0
  423. -- icon id / first selected line: 0 / 0
  424. -- text alignment: 1
  425. -- font id: 0
  426. -- text size: 12
  427. -- style flags: 0
  428. -- line height: 16
  429. -- part name: Future
  430. ----- HyperTalk script -----
  431. on mouseUp
  432.   PutTense "Future",4
  433. end mouseUp
  434.  
  435.  
  436.  
  437. -- part 38 (button)
  438. -- low flags: 00
  439. -- high flags: 2005
  440. -- rect: left=282 top=281 right=295 bottom=300
  441. -- title width / last selected line: 0
  442. -- icon id / first selected line: 0 / 0
  443. -- text alignment: 1
  444. -- font id: 0
  445. -- text size: 12
  446. -- style flags: 0
  447. -- line height: 16
  448. -- part name: Conditional
  449. ----- HyperTalk script -----
  450. on mouseUp
  451.   PutTense "Conditional",5
  452. end mouseUp
  453.  
  454.  
  455.  
  456. -- part 39 (button)
  457. -- low flags: 00
  458. -- high flags: 2005
  459. -- rect: left=282 top=301 right=315 bottom=300
  460. -- title width / last selected line: 0
  461. -- icon id / first selected line: 0 / 0
  462. -- text alignment: 1
  463. -- font id: 0
  464. -- text size: 12
  465. -- style flags: 0
  466. -- line height: 16
  467. -- part name: Progressive
  468. ----- HyperTalk script -----
  469. on mouseUp
  470.   PutTense "Progressive",6
  471. end mouseUp
  472.  
  473.  
  474.  
  475. -- part 40 (button)
  476. -- low flags: 00
  477. -- high flags: 2005
  478. -- rect: left=367 top=301 right=315 bottom=385
  479. -- title width / last selected line: 0
  480. -- icon id / first selected line: 0 / 0
  481. -- text alignment: 1
  482. -- font id: 0
  483. -- text size: 12
  484. -- style flags: 0
  485. -- line height: 16
  486. -- part name: Subjunctive
  487. ----- HyperTalk script -----
  488. on mouseUp
  489.   PutTense "Subjunctive",8
  490. end mouseUp
  491.  
  492.  
  493.  
  494. -- part 41 (button)
  495. -- low flags: 00
  496. -- high flags: 2005
  497. -- rect: left=367 top=281 right=295 bottom=385
  498. -- title width / last selected line: 0
  499. -- icon id / first selected line: 0 / 0
  500. -- text alignment: 1
  501. -- font id: 0
  502. -- text size: 12
  503. -- style flags: 0
  504. -- line height: 16
  505. -- part name: Compound
  506. ----- HyperTalk script -----
  507. on mouseUp
  508.   PutTense "Compound",7
  509. end mouseUp
  510.  
  511.  
  512.  
  513. -- part 21 (field)
  514. -- low flags: 01
  515. -- high flags: 0001
  516. -- rect: left=143 top=276 right=319 bottom=466
  517. -- title width / last selected line: 0
  518. -- icon id / first selected line: 0 / 0
  519. -- text alignment: 0
  520. -- font id: 3
  521. -- text size: 12
  522. -- style flags: 0
  523. -- line height: 16
  524. -- part name: Hide2
  525. ----- HyperTalk script -----
  526. -- This Is A Dummy Field Used To Hide The Graphic Text
  527. -- When All Tenses Is Selected.
  528.  
  529.  
  530. -- part 62 (field)
  531. -- low flags: 01
  532. -- high flags: 0000
  533. -- rect: left=313 top=149 right=185 bottom=360
  534. -- title width / last selected line: 0
  535. -- icon id / first selected line: 0 / 0
  536. -- text alignment: 1
  537. -- font id: 21
  538. -- text size: 24
  539. -- style flags: 8192
  540. -- line height: 32
  541. -- part name: Right
  542.  
  543.  
  544. -- part 63 (field)
  545. -- low flags: 01
  546. -- high flags: 0000
  547. -- rect: left=359 top=149 right=185 bottom=414
  548. -- title width / last selected line: 0
  549. -- icon id / first selected line: 0 / 0
  550. -- text alignment: 1
  551. -- font id: 21
  552. -- text size: 24
  553. -- style flags: 8192
  554. -- line height: 32
  555. -- part name: Not Right
  556.  
  557.  
  558. -- part 64 (field)
  559. -- low flags: 01
  560. -- high flags: 0000
  561. -- rect: left=413 top=149 right=185 bottom=468
  562. -- title width / last selected line: 0
  563. -- icon id / first selected line: 0 / 0
  564. -- text alignment: 1
  565. -- font id: 21
  566. -- text size: 24
  567. -- style flags: 8192
  568. -- line height: 32
  569. -- part name: Average
  570.  
  571.  
  572. -- part 71 (button)
  573. -- low flags: 00
  574. -- high flags: 0000
  575. -- rect: left=436 top=75 right=92 bottom=452
  576. -- title width / last selected line: 0
  577. -- icon id / first selected line: 1018 / 1018
  578. -- text alignment: 1
  579. -- font id: 0
  580. -- text size: 12
  581. -- style flags: 0
  582. -- line height: 16
  583. -- part name: Reset Quiz
  584. ----- HyperTalk script -----
  585. on mouseUp
  586.   Global Correct, Wrong
  587.   set cursor to watch
  588.   put 0 into Correct
  589.   put 0 into Wrong
  590.   put 0 into card field "Right"
  591.   put 0 into card field "Not Right"
  592.   put "0%" into card field "Average"
  593.   DoQuestion
  594.   set cursor to browse
  595. end mouseUp
  596.  
  597.  
  598.  
  599.  
  600. -- part contents for card part 63
  601. ----- text -----
  602. 0
  603.  
  604. -- part contents for card part 64
  605. ----- text -----
  606. 0%
  607.  
  608. -- part contents for card part 62
  609. ----- text -----
  610. 0